set.seed(0)
df <- rbind(matrix(rnorm(100, 0.5, 4.5), ncol = 2),
            matrix(rnorm(100, 0.5, 0.1), ncol = 2))
colnames(df) <- c("x", "y")
head(df)